err.asp 星梦奇缘交友网 1 - ASP源码程序

www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/err.asp
    <!-- #include file="config.asp" -->
<!-- #include file="style.asp" -->

<%Response.Expires=-1%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=HomeName%> 留言本 错误</title></head><body<%=bodylimit%> onload="<%=framecheck%>">



<div align="<%=TableAlign%>">



<table border="<%=TableBorderWidth%>" cellpadding="2" style="border-collapse:collapse" width="<%=TableWidth%>" bordercolor="<%=TableBorderColor%>"><tr><td>



<%if ShowTitle=true then%>
<table border="0" cellpadding="2" style="border-collapse: collapse" width="100%">
	<tr height="60" bgcolor="<%=TitleBGC%>">
		<td background="<%=TitlePic%>"><font color="<%=TitleColor%>">
		<%
		if HomeLogo<>"" then Response.Write "<img border=0 src=" &HomeLogo& ">"
		if HomeName<>"" then
			if HomeAddr<>"" then
				Response.Write "<a href=" &HomeAddr& "><font color=" &TitleColor& ">" &HomeName& "</font></a>&nbsp;&gt;&gt;&nbsp;<a href=index.asp><font color=" &TitleColor& ">留言本</font></a>&nbsp;&gt;&gt;&nbsp;错误"
			else
				Response.Write HomeName& "&nbsp;&gt;&gt;&nbsp;<a href=index.asp><font color=" &TitleColor& ">留言本</font></a>&nbsp;&gt;&gt;&nbsp;错误"
			end if
		end if
		%>
		</font>
		</td>
	</tr>
</table>
<br>
<%end if%>	
	<table border="0" width="100%">
		<tr><td align="right">
			<font color="<%=LinkNormal%>">| </font><a href="admin_login.asp">管理</a>
		</td></tr>
	</table>

<%
	dim errmsg
	select case Request("number")
	case "1"
		errmsg="对不起，您的访问已被禁止。"
	case "2"
		errmsg="抱歉，留言本已关闭，请稍候再试。"
	case "3"
		errmsg="抱歉，留言权限已关闭，请稍候再试。"
	case "4"
		errmsg="对不起，您的留言中含有禁止出现的内容。"
	case "5"
		errmsg="抱歉，搜索权限已关闭，请稍候再试。"
	case else
		errmsg="未知错误，请联系管理员。"
	end select
	Response.Write "<br>　　■　" &errmsg& "<br><br><br></table></div>"
	%><!-- #include file="bottom.asp" --><%
	Response.End 
%>

</table></div>